home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / sync / bang2.zip / BANG.SRC < prev    next >
Text File  |  1996-03-09  |  6KB  |  204 lines
  1. # ┌────────[ BANG Ver 2.0 - The Russian Roulette Credit Lottery ]────────────┐
  2. # │                                                                          │
  3. # │              Original Script by:  Charles McColm (Oct 1995)              │
  4. # │              Revised  Script by:   Rob Nykvist (March 1996)              │
  5. # │                                                                          │
  6. # └──────────────────────────────────────────────────────────────────────────┘
  7. !include nodedefs.inc
  8. int COUNT
  9. int CHAMBER
  10. int ROUNDS
  11. int WINNINGS
  12.  
  13. :top
  14. cls
  15. crlf
  16. crlf
  17. print "nr                                ▀▄▀▄▀▄▀▄▀▄▀▄▀\r\n"
  18. print "yh                                    BANG!\r\n"
  19. print "nr                                ▄▀▄▀▄▀▄▀▄▀▄▀▄"
  20. crlf
  21. crlf
  22. crlf
  23. print "\r\nhw                                                         <───n──┐"
  24. print "\r\n               hr¡n                                               │"
  25. print "\r\nh               r∙  w            I - cBANG Info hk                   │"
  26. print "\r\nhk               │w              F - mFire Away  hk                  │"
  27. print "\r\nhk               │w              Q - gQuit to the BBS              r∙"
  28. print "\r\nn               │hw                                               r¡"
  29. print "\r\nn               └──wh──>"
  30. node_action node_xtrn
  31. async
  32. getcmd fiq?
  33. logkey_comma
  34.  
  35. cmdkey ?
  36.   goto top
  37. end_cmd
  38.  
  39. cmdkey q
  40.   goto byebye
  41. end_cmd
  42.  
  43. cmdkey i
  44.   cls
  45.   crlf
  46.   crlf
  47.   crlf
  48.   print "                                  nhirWARNING\r\n\r\n"
  49.   print "                  ncThis BBS's h44 Magnum ncgun has hsix ncchambers.\r\n"
  50.   print "                When you pull the trigger on an empty chamber,\r\n"
  51.   print "                       you instantly get hm50k nccredits.\r\n\r\n"
  52.   print "                  If you lose in Russian Roulette, you hgdie.\r\n"
  53.   print "                  yBANG ncis a stupid game with high risk too!\r\n\r\n"
  54.   print "        If you pull the trigger when there is a bullet in the chamber,\r\n"
  55.   print "               the hBBS hangs upnc, and you hlose 30 minutes nctime.n\r\n\r\n"
  56.   print "             rhNEVERnc stick amh realnc gun to your head for any reason!n\r\n\r\n"
  57.   print "                                 @PAUSE@"
  58.   goto top
  59. end_cmd
  60.  
  61. cmdkey f
  62.   set WINNINGS 0
  63.   set COUNT 0
  64.   set CHAMBER 0
  65.   set ROUNDS 0
  66.   random CHAMBER 6
  67.   add CHAMBER 1
  68.   cls
  69.   crlf
  70.   print "yhLoading bOne yBullet into the Gun.\r\n"
  71.   crlf
  72.   print "rhPull trigger how many times?y (w1-5y)r : "
  73.   getnum ROUNDS 5
  74.   crlf
  75.   compare ROUNDS 0
  76.     if_less
  77.       goto top
  78.     end_if
  79.   compare ROUNDS 1
  80.     if_true
  81.       printf "mhPulling triggery %1ld mtime...\r\n" ROUNDS
  82.       crlf
  83.       print "whAiming at gYOURh head @USER@, cocking hammer back...yReady?\r\n"
  84.       crlf
  85.       pause
  86.     else
  87.       printf "mhPulling triggery %1ld mtimes...\r\n" ROUNDS
  88.       crlf
  89.       print "whAiming at gYOUR whead @USER@, cocking hammer back...yReady?\r\n"
  90.       crlf
  91.       pause
  92.     end_if
  93.   compare ROUNDS CHAMBER
  94.     if_less
  95.       :LIVES
  96.       compare COUNT ROUNDS
  97.         if_true
  98.           goto doneloop
  99.         end_if
  100.       switch COUNT
  101.         case 0
  102.           print_remote ""
  103.           print "hrCLICK! ;; b(W h e w!)\r\n"
  104.         end_case
  105.         case 1
  106.           print_remote ""
  107.           print "hgCLICK! ;; b(W h e w!  You are a brave person!)\r\n"
  108.         end_case
  109.         case 2
  110.           print_remote ""
  111.           print "hyCLICK! ;; b(J e e s h!  Three rounds?  You gotta be nuts!)\r\n"
  112.         end_case
  113.         case 3
  114.           print_remote ""
  115.           print "hcCLICK! ;; b(Y e o w!  4 squeezes?  You must wanna logoff!)\r\n"
  116.         end_case
  117.         case 4
  118.           print_remote ""
  119.           print "hmCLICK! ;; b(W O W!  You got big nads or are suicidal!)\r\n"
  120.           print "\r\ny*BONUS* 100k Credits!\r\n"
  121.           log "$+ BONUS credit adjustment: 100k"
  122.           adjust_user_credits 100
  123.           add WINNINGS 100
  124.         end_case
  125.       end_switch
  126.     adjust_user_credits 50
  127.     add WINNINGS 50
  128.     log "$+ credit adjustment: 50k"
  129.     crlf
  130.     pause
  131.     add COUNT 1
  132.     goto LIVES
  133.   else
  134.   :SPLAT
  135.     add COUNT 1
  136.     compare COUNT CHAMBER
  137.       if_equal
  138.         compare_ars level 50
  139.           if_true
  140.             goto lucky
  141.           end_if
  142.         print "chBANG!  ;; r SPLAT... ;; g T,H,U,D,!\r\n"
  143.         print "\r\nch,You bblewc your brains out y@USER@! c Whadda rBloodyc Mess!\r\n"
  144.         print "\r\nhw,You have just fallen down and you can't get up.b  HaHa!\r\n"
  145.         print "\r\nm,Subtracting y30 mminutes!  Call again...if you have time...gGoodbye...\r\n"
  146.         adjust_user_minutes -30
  147.         log ">> minute adjustment: -30"
  148.         crlf
  149.         pause
  150.         hangup
  151.       else
  152.         switch COUNT
  153.           case 1
  154.             print_remote ""
  155.             print "hrCLICK! ;; b(W h e w!)\r\n"
  156.           end_case
  157.           case 2
  158.             print_remote ""
  159.             print "hgCLICK! ;; b(W h e w!  You are a brave person!)\r\n"
  160.           end_case
  161.           case 3
  162.             print_remote ""
  163.             print "hyCLICK! ;; b(J e e s h!  Three rounds?  You gotta be nuts!)\r\n"
  164.           end_case
  165.           case 4
  166.             print_remote ""
  167.             print "hcCLICK! ;; b(Y e o w!  4 squeezes?  You must wanna logoff!)\r\n"
  168.           end_case
  169.           case 5
  170.             print_remote ""
  171.             print "hmCLICK! ;; b(W O W!  You got big nads or you are suicidal!)\r\n"
  172.             print "\r\nyi*nhwBONUSyi* nch100k ncCredits!\r\n"
  173.           end_case
  174.         end_switch
  175.       crlf
  176.       pause
  177.       goto SPLAT
  178.       end_if
  179.   end_if
  180.   goto top
  181. end_cmd
  182. goto top
  183.  
  184. :doneloop
  185.   print "chYou took a HUGE risk and msurvived! c Congratulations!\r\n"
  186.   printf "\r\nhgAddingy %ld k gCredits to your Account!\r\n" WINNINGS
  187.   crlf
  188.   pause
  189.   goto top
  190.  
  191. :lucky
  192.   print "chYou just rblewc your brains out g@USER@! c But because of your high\r\n"
  193.   print "security level though, you were mNOTc disconnected from the BBS.\r\n"
  194.   crlf
  195.   pause
  196.   print "mSubtracting y30 mminutes from your on-line time today!\r\n"
  197.   crlf
  198.   adjust_user_minutes -30
  199.   log ">> minute adjustment: -30"
  200.   pause
  201.   goto top
  202.  
  203. :byebye
  204.